2 POKE55,0:POKE56,56:CLR:POKE650,128
3 DV=PEEK(186):IFDV<8THENDV=8
4 DIMI,J,K,A,M,N,P,Q,R,U,W,X,Y,Z,PP,B9$,MQ,MU,F$,B,IK,NK
5 DIMB$(144),D$(144),M(144),E$(2),H(5),B9$(5),CD$(8,7)
6 POKE53280,0:POKE53281,0:PRINT"[147]"CHR$(142)"":GOSUB60000
9 SYS57812"FONT/ML",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
10 FORI=0TO24:POKEI+54272,0:NEXT:GOSUB2000
12 POKE53272,31:B1$="[158][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
13 B2$="[194]                             [221]":B3$="[158][202][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][203]"
14 BK$="@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
15 T$=" [129][162][163][164][165][166][167][168][169][170][171][172][173][174][175][176][177][178][146]"
16 FORI=0TO11:POKE960+I,255:NEXT:FORI=12TO63:POKE960+I,0:NEXT
17 V=53248:FORI=0TO2:POKE2040+I,15:NEXT
18 POKEV+29,7:POKEV+23,7:POKEV+28,0:POKEV+27,7
19 GOTO100
30 PRINT"[159] PAGE"PPTAB(10)T$TAB(34)"[159]OF"P
31 PRINT"[155]"BK$
32 PRINT"@@[158][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][178][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201][155]@@"
33 FORI=1TOH(PP):PRINT"@@[158][194]                [209]                [221][151]@[155]@":NEXT
34 PRINT"@@[158][202][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][177][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][203][151]@[155]@"
35 PRINT"@@@[151]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[155]@"
36 IFH(PP)=16THENPRINTBK$:RETURN
38 FORI=1TO16-H(PP):PRINTBK$:NEXT
39 RETURN
40 FORI=22TO24:POKE781,I:SYS59903:NEXT
42 POKE214,21:PRINT:PRINT"  CRSR KEYS[154] - MOVE BAR   N[154] - NEW DISK"
44 PRINT" SPACE[154] - SELECT  RETURN[154] - PLAY SONG(S)"
46 PRINT"  A[154] - TOGGLE ALL   P[154] - PAGE   Q[154] - QUIT"
48 RETURN
50 FORI=22TO24:POKE781,I:SYS59903:NEXT
52 POKE214,22:PRINT:PRINT "    SPACE[154] - NEXT SONG     Q[154] - MENU"
53 PRINT"  T[154] - CHANGE TILE   B[154] - TOGGLE WIGGLE"
54 RETURN
64 POKE214,23:PRINT:PRINT"      [154]PRESS A KEY TO CONTINUE";:POKE198,0
66 GETA$:IFA$=""THEN66
68 RETURN
70 POKEV+21,0:POKE214,7:PRINT
72 PRINTTAB(4)"[158]"B1$
74 PRINTTAB(4)B2$:PRINTTAB(6)"[145]"ME$
76 PRINTTAB(4)B3$
78 RETURN
80 SYS20480,1024,22120+PP*2000,1000:SYS20480,55296,23120+PP*2000,1000:RETURN
82 SYS20480,22120+PP*2000,1024,1000:SYS20480,23120+PP*2000,55296,1000:RETURN
85 POKE214,(M+1)/2-(PP-1)*16+1:PRINT:PRINTTAB(4-17*(M/2=INT(M/2)))"[159]"D$(M)
86 GOSUB80:RETURN
90 Z=Z+1:IFZ>7THENZ=0
92 SYS20480,16288+8*Z,14336,8:RETURN
100 PRINT"[147]"TAB(10)T$:PRINT"      A KNEES CALHOON INSPIRATION"
101 ME$="     [154]READING DIRECTORY     ":GOSUB70:PRINT"[144]"
102 E$(0)=CHR$(159):E$(1)=CHR$(5)
105 FORI=0TONT:B$(I)="":D$(I)="":M(I)=0:NEXT:I=FRE(0)
110 K=1:SYS20736,"$:*",DV:SYS20739
120 IFST<>64THENINPUT#3,A,F$,A$:SYS20739:GOTO145
123 GOTO170
145 IFLEFT$(F$,2)="M."THEND$(K)=RIGHT$(F$,LEN(F$)-2):B$(K)=F$:K=K+1:GOTO120
150 IFRIGHT$(F$,4)=".MUS"THEND$(K)=LEFT$(F$,LEN(F$)-4):B$(K)=F$:K=K+1
155 GOTO120
170 NT=K-1:IFNT=0THENME$="[154]NO MUSIC FILES ON THIS DISK":GOSUB70:GOTO695
172 IFK=<33THENH(1)=INT(K/2):P=1:GOTO180
174 IFK=<65THENH(1)=16:H(2)=INT((K-32)/2):P=2:GOTO180
176 IFK=<97THENH(1)=16:H(2)=16:H(3)=INT((K-64)/2):P=3:GOTO180
178 H(1)=16:H(2)=16:H(3)=16:H(4)=INT((K-96)/2):P=4
180 IF(KAND1)=0THEND$(K)=" "
182 PP=1
190 GOSUB30
200 W=PP-1:POKE214,2:PRINT
201 ONPGOTO202,203,205,208
202 FORI=1TOK-1:GOTO215
203 IFPP=1THENFORI=1TO32:GOTO215
204 IFPP=2THENFORI=33TOK-1:GOTO215
205 IFPP=1THENFORI=1TO32:GOTO215
206 IFPP=2THENFORI=33TO64:GOTO215
207 IFPP=3THENFORI=65TOK-1:GOTO215
208 IFPP=1THENFORI=1TO32:GOTO215
209 IFPP=2THENFORI=33TO64:GOTO215
210 IFPP=3THENFORI=65TO96:GOTO215
211 IFPP=4THENFORI=97TOK-1
215 PRINTTAB(4-17*((IAND1)=0))E$(M(I))D$(I);
220 IF(IAND1)=0THENPRINT
230 NEXT
240 IF((KAND1)=0)ANDI<17THENPRINTTAB(21)E$(M(I))D$(K)
250 GOSUB40
260 GOSUB80:IFPP=PTHEN290
270 PP=PP+1:GOTO190
290 PP=1:GOSUB82
300 W=PP-1:X=48:Y=74:N=1+W*32:MQ=0:MU=0
301 POKE214,15:PRINT:PRINTTAB(4)B1$:PRINTTAB(4)B2$"[151]@":PRINTTAB(4)B3$"[151]@"
302 PRINTTAB(6)"[154][145][145] PRESS I[154] FOR MUSIC CREDITS "
303 PRINTTAB(6)"[151]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"
304 FORI=39TO41:POKEV+I,6:NEXT:POKEV+21,7
305 POKEV,X:POKEV+2,X+48
308 IFX=184THENPOKEV+16,4:POKEV+4,8:GOTO312
310 POKEV+4,X+80:POKEV+16,0
312 POKEV+1,Y:POKEV+3,Y:POKEV+5,Y
320 GETA$:IFA$=""THEN320
322 IFA$="[145]"THENY=Y-8:N=N-2:IFY<74THENY=66+H(PP)*8:N=2*H(PP)-(X=184)-1:GOTO305
324 IFA$=""THENY=Y+8:N=N+2:IFY>73+H(PP)*8THENY=74:N=1+W*32-(X=184):GOTO305
326 IFA$="[157]"THENX=X-136:N=N-1:IFX<48THENX=184:N=N+2:GOTO305
328 IFA$=""THENX=X+136:N=N+1:IFX>184THENX=48:N=N-2:GOTO305
330 IFA$=CHR$(13)THENPOKEV+21,0:GOTO360
332 IFA$<>"D"THEN335
333 POKEV+21,0:PRINT"[147]    SHIFT[159] WILL PAUSE THE LISTING[155]"
334 SYS20224:GOSUB64:GOSUB82:POKEV+21,7:GOTO305
335 IFA$<>"P"THEN340
336 GOSUB80:POKEV+21,0:PP=PP+1:IFPP>PTHENPP=1
338 GOSUB82:GOTO300
340 IFA$="A"THENPOKEV+21,0:FORI=1TOK:M(I)=1-M(I):NEXT:GOTO182
342 IFA$="Q"THEN600
343 IFA$="I"THEN1000
344 IFA$="N"THEN700
346 IFA$<>"T"THEN350
347 T=T+1:IFT>9THENT=0
348 SYS20480,15104+8*T,14336,8:GOTO305
350 IFA$<>" "THEN305
352 POKE214,(Y-58)/8:PRINT:PRINTTAB(4-(X=184)*17);
354 M(N)=1-M(N):PRINTE$(M(N))D$(N):GOSUB80
356 GOTO305
360 FORM=1TOK:POKEV+21,0
361 IFD$(M)=" "THEN365
362 IFM(M)THENPP=INT(M/33)+1:GOSUB82:GOSUB366:M(M)=0:GOSUB85
364 IFUTHENU=0:FORI=1TOK:M(M)=0:NEXT:M=K
365 NEXT:POKEV+21,0:PP=1:GOTO190
366 IF(M/2=INT(M/2))THENPOKEV,184:POKEV+2,232:POKEV+4,8:POKEV+16,4:GOTO368
367 POKEV,48:POKEV+2,96:POKEV+4,128:POKEV+16,0
368 FORI=1TO5STEP2:POKEV+I,74+8*INT((M+32*(PP=2)+64*(PP=3)+96*(PP=4)-1)/2):NEXT
370 GOSUB50
376 IFLEFT$(B$(M),2)="M."THENGOSUB500:GOTO380
378 GOSUB400
379 REM  PRINT"[159] PAGE"PPTAB(10)T$TAB(34)"[159]OF"P
380 IF((MQ=1)AND(PEEK(2)=255)OR((MU=1)AND(PEEK(49152)=0)))THENB=0:GOTO388
381 IFBTHENGOSUB90
382 GETA$:IFA$<>" "ANDA$<>"Q"ANDA$<>"T"ANDA$<>"B"ANDA$<>"I"THEN380
383 IFA$="B"THENB=1-B:GOTO380
384 IFA$<>"T"THEN387
385 B=0:T=T+1:IFT>9THENT=0
386 SYS20480,15104+8*T,14336,8:GOTO381
387 IFA$="I"THENMK=1:N=M:GOTO1000
388 IFA$="Q"THENNU=1:POKEV+21,0:FORI=1TOK:M(I)=0:NEXT
389 IFMQTHENGOSUB550
390 IFMUTHENGOSUB450
391 RETURN
400 SYS20480,16384,49152,3153:IFM=RTHEN430
410 SYS57812B$(M),DV,0:POKE780,0:POKE781,0:POKE782,128:SYS65493:R=M
420 FORI=39TO41:POKEV+I,2:NEXT
430 SYS49615:POKE781,0:POKE782,128:SYS49664:POKE49152,7:MU=1:POKEV+21,7:RETURN
450 POKE49152,0:POKE54276,0:POKE54283,0:POKE54290,0:SYS49897:SYS49935:MU=0:RETURN
500 SYS20480,21248,52222,869:IFM=QTHEN530
510 SYS57812B$(M),DV,0:POKE780,0:POKE781,0:POKE782,160:SYS65493
520 SYS57812"W."+D$(M),DV,0:POKE780,0:POKE781,104:POKE782,207:SYS65493:Q=M
525 FORI=39TO41:POKEV+I,5:NEXT
530 SYS52222,40960:MQ=1:POKEV+21,7:RETURN
550 SYS52225:MQ=0:RETURN
600 ME$="        [154]QUIT?  (Y[154]/N[154])        "
610 GOSUB70
640 GETA$:IFA$<>"Y"ANDA$<>"N"THEN640
650 IFA$="N"THENGOSUB82:GOTO304
655 POKE650,0
660 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
670 IFER<>63THENPRINT"[159]":POKE53272,21:END
680 PRINT"[147][144]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8"
690 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END
695 FORI=0TO2000:NEXT
700 ME$="[154]INSERT DISK AND PRESS SPACE"
710 GOSUB70
750 GETA$:IFA$<>" "THEN750
760 GOTO100
1000 PT=PP:PP=3:GOSUB80
1002 IFN<4THENNK=1:GOTO1010
1003 IFN<7THENNK=2:GOTO1010
1004 IFN<11THENNK=3:GOTO1010
1005 IFN<15THENNK=4:GOTO1010
1006 IFN<16THENNK=5:GOTO1010
1007 IFN<19THENNK=6:GOTO1010
1008 IFN<22THENNK=7
1010 POKE214,15:PRINT:PRINTTAB(4)B1$:FORIK=0TO6:PRINTTAB(4)B2$:NEXT
1020 PRINTTAB(4)B3$"[145][145][145][145][151]@[159]"
1030 POKE214,16:PRINT
1040 FORIK=1TO6:LG=LEN(CD$(NK,IK)):PRINTTAB(20-LG/2)CD$(NK,IK):NEXT
1050 PRINTTAB(13)"[154]PRESS ANY KEY"
1055 BQ=0
1060 BQ=BQ+1:GETA$:IFA$=""ANDBQ<500THEN1060
1070 GOSUB82:PP=PT
1075 IFMKTHENMK=0:GOTO380
1080 GOTO305
2000 CD$(1,1)="CLARINET CONCERTO #1 IN F MIN"
2001 CD$(1,2)="CARL MARIA VON WEBER"
2002 CD$(1,3)="(1786 - 1826)
2003 CD$(1,4)[178]"1ST - ALLEGRO MODERATO
2004 CD$(1,5)="2ND - ADAGIO
2005 CD$(1,6)[178]"3RD - RONDO (ALLEGRO)
2010 CD$(2,1)="PATHETIQUE SONATA #8 IN C MIN"
2011 CD$(2,2)="LUDVIG VAN BEETHOVEN"
2012 CD$(2,3)="(1770 - 1827)
2013 CD$(2,4)[178]"1ST - GRAVE/ALLEGRO
2014 CD$(2,5)="2ND - ADAGIO CANTABILE
2015 CD$(2,6)[178]"3RD - RONDO
2020 CD$(3,1)="WILLIAM TELL OVERTURE
2021 CD$(3,2)[178]"GIOACCHINO ROSSINI  1792-1868
2022 CD$(3,3)="1ST MOVEMENT - DAWN
2023 CD$(3,4)[178]"2ND MOVEMENT - STORM
2024 CD$(3,5)="3RD MOVEMENT - CALM
2025 CD$(3,6)[178]"4TH MOVEMENT - FINALE
2030 CD$(4,1)="FESTIVAL OVERTURE - 1812
2031 CD$(4,2)[178]"PETER ILYITCH TSCHAIKOWSKY
2032 CD$(4,3)="(1840 - 1893)
2033 CD$(4,4)[178]"PARTS 1, 2, 3 AND 4
2040 CD$(5,1)="POET AND PEASANT OVERTURE
2041 CD$(5,2)[178]"FRANZ VON SUPPE
2042 CD$(5,3)="(1819 - 1895)
2050 CD$(6,1)[178]"CONCERTPIECE #2 IN D MINOR
2051 CD$(6,2)="CLARINET, BASSET HORN, PIANO
2052 CD$(6,3)[178]"FELIX MENDELSSOHN
2053 CD$(6,4)="(1809 - 1847)
2054 CD$(6,5)[178]"MOVEMENTS 1, 2 AND 3
2060 CD$(7,1)="QUINTET IN B MINOR
2061 CD$(7,2)[178]"FOR CLARINET AND STRINGS
2062 CD$(7,3)="JOHANNES BRAHMS
2063 CD$(7,4)[178]"(1833 - 1897)
2064 CD$(7,5)="MOVEMENTS 1, 2 AND 3
2099 [142]
10000 [159]15,8,15,"S0:CLASSICAL STAR":[160]15:[148]"CLASSICAL STAR",8:[128]
60000 [153]"LOAD":Z$[178]" PRINT#                                      ":[151]214,10:[153]
60010 [153]" LISTFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE":[129]I[178]0[164]11:[153]Z$:[130]
60020 [153]" POKEPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPRINT#"
60030 Z$(0)[178]"C L A S S I C A L    S T A R":Z$(1)[178]"TRANSCRIPTIONS BY DAVE MARQUIS
60040 Z$(2)="V1.0 (C) 1992 BY SOFTDISK, INC."+CHR$(13)
60050 Z$(3)="THIS PROGRAM IS THE COPYRIGHTED WORK
60060 Z$(4)[178]"OF SOFTDISK PUBLISHING.  IT IS NOT"
60070 Z$(5)[178]"SHAREWARE OR IN THE PUBLIC DOMAIN."
60080 Z$(6)[178]"REPORT ILLEGAL DISTRIBUTION OF":Z$(7)[178]"THIS PROGRAM BY CALLING"
60090 Z$(8)[178]"1-800-831-2694 OR 1-318-221-8718.":[151]214,12:[153]
60100 [129]I[178]0[164]8:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]